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EDITORIAL 


Oui, vous pouvez le dire, ce numéro est encore en retard ! Si, comme précédemment (malheureusement), une 
partie de ce retard était dûe à un manque d'articles, sa principale cause est que, alors même que nous 
procédions à sa mise en page, nous avons eu le déplaisir de voir notre ordinateur tomber en panne ! 


Rappelons à ceux qui n'ont pas lu les comptes rendus de notre dernière assemblée générale, que nous utilisions 
depuis une cinquantaine de numéros un ordinateur Hewlett-Packard compatible avec la série 9000 
(fonctionnant sous Unix, et incompatible avec les IBM PC) et un logiciel d'impression "fait maison”. 


Or, afin de nous simplfier notre travail, et améliorer notre mise en pages, nous avions décidé au début de 
l'année de passer sur IBM PC et d'utiliser un logiciel plus évolué. Ce passage devant se faire pour le JPC 
numéro 100 (Et c'est ici, cher lecteur, que vous devez jeter un coup d'oeil au numéro de ce journal...). 


Et oui, notre ordinateur n'a rien touvé de mieux que de tomber en panne trois ou quatre heures seulement avant 
la retraite ! Si certains fatalistes ne font que mentionner une certaine Loi de Murphy, d'autre prétendent que 
cette machine aurait une âme et qu'elle n'aurait rien trouvé de mieux pour nous faire sentir combien elle était 
indispensable... Nous avons pu identifier la cause de la panne (dans l'alimentation), mais le fait que le 
composant mis en cause soit spécifique nous empêcha de le remettre en état par nos propres moyens. Et le faire 
réparer par HP alors qu'il ne devait plus nous servir qu'une fois était très discutable financièrement. 


Il nous a donc fallu trouver une autre solution, permettant de faire ce journal, tout en essayant de garder le 
style des JPC précédents. 


Pourquoi cette décision de ne pas changer la mise en pages à partir de ce numéro ? Peut-être parce que nous 
aimons les chiffres ronds, mais surtout parce que nous pensions au début que cela nous ferait moins de travail... 


Mais, même si nous avons passé cinq ou six fois plus de temps à refaire la mise en page de ce numéro, ce temps 
n'est pas totalement perdu puisque en avons profité pour tester de nombreux programmes de mise en pages. 
Chose que nous aurions fatalement dû faire pour le numéro 100. Et force est de constater que de très nombreux 
logiciels de PAO qualifiés d'évolués sont restés sur le tapis dès qu'il fallait, par exemple, importer les listings 
HP48... Il nous a donc fallu recourir à deux programmes différents (un pour le texte et un autre pour les cadres) 
pour parvenir à nos fins. 


En fait, si le JPC que vous avez entre les mains semble ressembler trait pour trait aux précédents, un 
comparaison attentive devrait vous montrer qu'il existe de nombreuses différences, quelques fois infimes 
(quelqu'un sera-t-il capable de nous les donner toutes ? Nous en avons compté une dizaine). 


Mais maintenant, une fois que nous aurons enfin choisi le programme de PAO qui nous servira pour les 
prochains JPC (les 100 prochains ?), notre plus gros problème sera de combler notre retard. Si nous avons déjà 
défini une partie du n°100 (avec un compte-rendu de la conférence d'Amsterdam et une présentation de 
nouveaux logiciels, entre autres), il faudra que vous nous aidiez un peu. Comment ? Tout simplement en nous 
envoyant le plus d'articles possible ! A propos, avez vous remarqué que nous avons trois nouveaux auteurs dans 
ce JPC ? Ce serait sympathique qu'il y en ait quatre dans le prochain... 
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ATTENTION DANGER ! 


Vous trouverez autre part dans ce journal mention de la 
mise hors service de la HP28S de notre ami Paul Jebeily 
lors du changement de ses piles. 


Sa mésaventure est survenue car, depuis quelque temps, 
est apparu un nouveau type de pile ayant quasiment les 
mêmes dimensions que les LR1 de 1.5V (présentes dans 
les HP18B, HP19B, HP-28 et HP-41, aussi connues sous 
la référence ‘N'), mais délivrant une tension de 12V au 
lieu de 1.5 V! 


Inutile de vous expliquer le résultat obtenu lorsque l'on 
alimente une machine avec 36 Volts, au lieu de 4.5... 


Si cela peut rassurer Paul, j'ai appris quasiment en même 
temps que cette mésaventure était arrivée à une autre 
personne, à l'étranger. 


Le seul conseil que nous pouvons donc vous donner est 
donc de faire très attention au type de pile que vous 
donne le vendeur. 


On peut tout de même s'étonner du laisser-aller des 
fabriquants de piles, décidant de mettre sur le marché un 
produit présentant un tel risque de confusion, surtout si 
l'on sait que ces piles sont la plupart du temps destinées 
à être placées dans des appareils coûtant plusieurs 
milliers de Francs. 


Jacques Belin (123) 





COURRIER DU COEUR 


Jean ARNAUD 

72, rue de Rochechouard 
75009 PARIS 

Tel : (1) 48 78 55 59 


Vend (pour collectionneurs !) : 
Une calculatrice HP67. une HP97 (HP67 avec 


imprimante incorporée), nombreux programmes. Le tout 
2000 Fr. 
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Carles CRESPO 
Felip II, 291 4-4 
08016 BARCELONE 
Espagne 


Vend : 


HP95LX 512Ko, 1300 F (port compris pour l'Europe). 


Paul Jebeily 

40, rue des Graves 

31170 TOURNEFEUILLE 
Tel: 


Cherche : 
Une HP28S : 


- Soit neuve, à concurence de 650F. 
- Soit d'occasion (excellent état) à moins de 500F. 


André Chollier 

28, rue de Trévise 
75009 PARIS 

Tel : (1) 42 46 33 84 


Cherche : 


Un module finance pour HP-41. 





HP28 
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FOUGERE DE BARNSLEY 
et graphisme 


NDLR : Paul Jebeily nous a informé de la ruine de sa HP28S en utilisant 
des piles de 12 volts au lieu de 1,5. Il a eu la gentillesse de nous 
transmettre certains de ses travaux dont quelques uns devaient être revus 
pour utiliser les nouvelles fonctions graphiques parues dans JPC 98. 


Fougère de Barnsley 


FOUGR est l'adaptation pour HP28S du programme de 
tracé de fougère fractale et paru pour HP95 dans JPC 93 
page 27 (NDLR: ce programme était lui-même une adaptation en 
Swift'Basic d'un programme pour HP48 en User RPL, mais paru dans 
48Sxtant et dont Paul n'a pu avoir connaissance. Ainsi la boucle est 
bouclée). 


Il suffit de fournir un nombre entier positif (par exemple 
500, 1000) pour obtenir le tracé d'une fougère fractale de 
Barnsley et la chaîne de l'image que vous pourrez 
Sauvegarder pour réaffichage ou impression. 


Le programme FoUGR exécutant de nombreuses itérations, 
deux programmes sont appelés : 


- le programme SPEED pour gagner en rapidité. 

-le programme EcrorF pour éteindre l'affichage et 
économiser les piles au-delà de 500 itérations. Cet 
affichage devant être rétabli en fin d'exécution par le 
programme ECRON. 


Pour sPpeeD voir JPC 85 ou version équivalente. Pour 
ECROFF et ECRON voir JPC 90 ou versions équivalentes. 


Le PppaR doit être : 


€{ (0,0) (255,127) constant 1 ( 0,0) } 


FOUGR 


« 
064 000%n x y x1 y1a 
« 
CLLCD SPEED 1 n 
FOR i i 500 == 
IF 
THEN ECROFF 
END 
0 RDZ RAND ‘a! STO 
IF a .03 < 
THEN 57.6 'x1! STO 
.27 Y * ‘yi! STO 
ELSE 
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IF a .17 < 
THEN -.139 x * .263 y * + 
65.644 + 1x1! STO 
.246 x * .224 y * + 
8.424 - 1y11 STO 
ELSE 
IF a .3 < 
THEN .17 x * .215 y * - 
47.016 + 'x1! STO 
.222 x * .176 y * + 
20.896 + 'y1! STO 
ELSE 
.781 x * .034 y * + 
12.384 + 'x1! STO 
-.032 x * .739 y * + 
63.18 + 'y1' STO 
END 
END 
END 
x1 !x! STO y1 'y!' STO 
y 128 x - 
RèC PIXEL 
NEXT 
440 .5 BEEP n 500 > 
IF 
THEN 
ECRON 
END 
LCD+ 
» 


» 


Pour obtenir un affichage 2,5 fois plus rapide on peut 
utiliser le programme P1xoN de Guy Toublanc. 


….A vos claviers... 


Applications de Line 


MVREC permet de déplacer un rectangle sur l'écran en 
effaçant l'image qu'il recouvre de l'épaisseur de son trait. 


Utiliser les touches des 4 flèches pour ce déplacement et 
{+1 et [-] pour augmenter ou diminuer le pas 
d'incrémentation. 


Ce programme ainsi que RECT, utilise le fameux 
programme LINE de Guy Toublanc (JPC 98). 


RECT demande en argument deux nombres complexes 
correspondant aux coins diagonalement opposés d'un 
rectangle. 


RECT 


« 


DUP2 SWAP - RE p1 p2 dx 


4 
« 4 
RS 





pi DUP dx + LINE 5 LP ;< 

pè LINE “. 5. a “# . 2% 

DUP dx - LINE sie Foie von CU 

pi LINE 5 DROPN ce 0 Us dt 

» UE A) 
» é Ré *# ë 7 k 
. : se fa 

MVREC “re. 


10000 + stp x1 y1 x2 y2 


« 


Do 12 
FOR i 9 
€ 
« SF x1 y1 » 
« CF x2 y2 » s Le 
2 + + . 
: À a. si ES 
îi GET EVAL R>C (55,15) None 4 =." : + 
ss 2 A Ge” 
OVER + (75,20) ROT + RECT FRS TR mes D 4 ES 
NEXT F” %. 
x2 'x1! STO y2 'yl! STO 
{ 





« stp 1 + 'stp! STO » 
« stp 1 - 'stp' STO » 
« stp x2 + 'x2! STO » 
« x2 stp - 'x2! STO » 
« stp y2 + !'y2! STO » 
« yè stp - 'y2! STO » 


} 
€ LEURS LPS |) MRIGHT'" NLEFT" MDOWN'!! Up" } æ 
33 

MAITK POS DUP 0 # at 

IF ge ae ‘ 

THEN RE CT 

ar LP" HOT AE eW 
GET EVAL 0 ET, ere Ê Fi # 
ELSE # fun Vin Fa Ke "ss re, 
NOT SWAP DROP 440 .1 BEEP T Lu RS Ÿ Be ‘M À Ê 
+ Lén. êx. LA & 17e 
END ‘ Le LT a] 
UNTIL en 
END 
» 
» 
WAITK 
« DO UNTIL KEY END » 
Merci à Guy d'avoir créé de telles possibilités su . 
graphiques, en espérant que j'aurai la possibilité de les 4 à S ÿ a 
utiliser plus profondément (si je trouve une autre Qu $* a au” 
HP28S). Re ee ET ur 
Ne Ve 2 is: E- 
Le” f 


ue. Fe Peer 
Paul Jebcily (571) de en LC RER CCE 
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Object Type  Symbol Example 






> 


ES 






j IE: BD: 
Bi(E}:0) 


BDEC 





(18) (8) (> (8x: 
D'OR BE 
DE 0-B;: 
DEDE 
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F. Barbaise 

L.V. Huynh 


La HP48 en Liberté 
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LITTERATURE HP48 


La HP48 en liberté 
Vagabondages à travers 48 applications 


Voici un livre qui sort des sentiers battus et qui devrait 
inciter les possesseurs de HP48 à programmer plus 
souvent, soit pour résoudre de petits problèmes pratiques 
ou pour se faire plaisir. En effet l'auteur nous montre que 
le champ d'utilisation de nos machines n'est limité que 
par notre imagination. Les sujets abordés nous offrent un 
choix très diversifié de thèmes parfois inattendus. 
L'auteur expose l'objet des différents programmes et leur 
solution en se rendant accessible au lecteur. 


Tous les programmes sont écrits en User Rpl et 
accompagnés d'exemples d'utilisation. Contrairement à 
ce que l'on rencontre habituellement, c'est 
l'environnement explicatif qui l'emporte sur la longueur 
des listings des programmes. Quelques références 
bibliographiques accompagnent souvent les textes des 
thèmes abordés. Les 48 applications sont regroupées en 8 
chapitres : 


- Suites (40 pages) 

- Graphismes (18 pages) 

- Fractales (22 pages) 

- Heure et dates (18 pages) 
- Astronomie (24 pages) 

- Trains (42 pages) 

- Jeux (32 pages) 

- Divers (46 pages) 


Si cette énumération fait déjà ressortir une bonne 
diversité de sujets abordés, le contenu des chapitres vous 
surprendra encore plus. 


L'auteur n'est pas un inconnu des lecteurs de JPC car 
c'est Robert Pulluard. lui-même, qui dirige 4SSxtant, 
Journal entièrement consacré aux HP48 et dont les 
articles ont souvent été repris mais aussi revus pour les 
applications HP48 contenues dans ce livre. 


Les lecteurs à court d'idées de programmation devraient 
trouver leur bonheur en plus de programmes prêts à 
l'emploi. 


La HP48 en Liberté 
par Robert Pullard 
256 pages 
145 F TTC 
D31 Diffusion 
ISBN 2-908791-16-1 


Bonne lecture à travers ces vagabondages. 


Guy Toublanc (276) 
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TRACE DE SERIES DE FOURIER 


Ce programme simple en RPL n'a pas d'autre prétention 
que de visualiser ou d'imprimer des séries de Fourier 
dont les coefficients ont déjà été calculés. A l'allure des 
courbes, on saura si les coefficients ont une chance d'être 
corrects. Ecrit pour des besoins personnels lors de mes 
études en mathématiques, c'est après avoir lu l'article 
"Réflexions..." de Robert Amram et Jacques Belin 
(JPC 97) que je me suis décidé à vous faire parvenir ce 
programme. Le RPL est assez puissant pour résoudre 
tout un tas de petits problèmes, tel celui-ci que je 
soumets à vos utilisateurs débutants qui, comme moi, 
sont moins à l'aise avec la programmation en System- 
RPL ou en assembleur. 


Les modèles G et GX de la HP48 permettent la création 
de masques de saisie bien pratiques pour améliorer 
l'ergonomie d'un programme (commande INFORM). C'est 
particulièrement utile en examen où on a d'autres soucis 
que de se rappeler comment tel ou tel module 
fonctionne. Les possesseurs de modèles S et SX 
adapteront le source en utilisant la commande INPUT. 
Ceci dit, INPUT dispose d'un mode de saisie directe en 
alphanumérique, mode qui ne peut pas être programmé 
avec la commande 

INFORM (il faut tout d'abord appuyer sur la touche [ALPHA] 
- et encore j'ai dû utiliser un artifice pour ne pas avoir à 
entrer les "", et qui interdit l'utilisation de certains noms 
comme noms de variables indépendantes : utilisation de 
noms globaux, Cf. le source). Je regrette aussi l'absence 
de la possibilité de programmer des cases à cocher dans 
la commande 1NForm.. Cela est sans doute possible en 
System-RPL ou en assembleur. 


Il s'agit donc de tracer des séries de Fourier, connaissant 
les coefficients. Je rappelle qu'une série de Fourier peut 
s'écrire f{x)-a0+somme(a(n)*cos(nx)+b(n) *sin(nx)) pour 
n allant de 1 à l'infini, où : a0 est la valeur moyenne de 
la fonction /fx), a(n) et b{n) les coefficients de la série. 
Cette définition est très incomplète, mais suffisante pour 
établir un lien avec les notations du programme. Après 
avoir calculé ces coefficients (ce n'était pas le but du 
programme, je le répète), il suffit de remplir ou de 
valider les différents champs qui sont présentés, à 
SaVOIr : 

- Le nom de la variable indépendante (les lettres O, N.E, 
I, R, G et D vous sont interdites pour les raisons 
évoquées ci-dessus); 

- Le nom de l'équation de départ (peut être simplement 
une chaîne de caractères pour l'impression); 

- Si l'équation de départ doit être tracée avec la série; 

- L'intervalle de tracé; 

- La valeur moyenne et les coefficients de la série; 

- Le mode angulaire: 


- Une liste contenant la ou les valeurs de n pour le tracé 
de la série; 

- Si les différentes valeurs de n doivent être tracées 
simultanément; 

- Enfin si la sortie doit s'effectuer à l'écran ou sur 
l'imprimante HP. 


Vous placerez ce programme dans un répertoire vide, de 
préférence. En effet, il crée de nombreuses variables qui 
servent de valeurs par défaut lors des utilisations 
suivantes et il serait bon de ne pas mélanger tous vos 
fichiers ! 


Quelques remarques sur le source : 


- Lors de la première utilisation, vous devrez patienter 
quelques secondes de plus à la création des trois masques 
de saisie : le programme crée ses variables, si elles 
n'existent pas (utilisation de la structure de contrôle 
IFERR...), 


- La structure de contrôle IF THEN ... ELSE ... END VOUS 
paraîtra quelque peu étonnante : sachez qu'on peut placer 
le 1F n'importe où (en fait il ne fait rien et c'est THEN qui 
analyse le contenu du sommet de la pile de données. 
Habitué au langage Forth (c'est peut-être pour cela que je 
préfère la logique HP !), il me semble plus cohérent 
d'écrire cette structure ainsi. 


- Sur l'imprimante, toute la largeur du papier est utilisée 
(pourquoi s'en priver ?). 


Quelques remarques concernant l'utilisation du 


programme : 


- Lorsqu'on demande un affichage successif pour 
plusieurs valeurs de n, l'environnement PICTURE devient 
actif à chaque valeur. On appuiera sur [CANCEL] (dans le 
menu) pour passer au tracé suivant. 

- Pour entrer un choix alphanumérique, il 
d'appuyer sur la touche alpha suivie du choix: 
-Le mot FOURIER crée beaucoup de variables à la 
première utilisation et se retrouve ainsi en dernière 
position dans le menu (pour l'utilisateur). Il est plus 
pratique de l'avoir en tête de liste. Pour ceci, vous 
utiliserez la séquence suivante : 


suffit 


VARS OBJæ SWAP OVER 1 + ROLLD LIST ORDER 
Pour exemple et pour terminer, voici quelques fonctions 
et leurs coefficients à donner au programme (les ai-je 


bien calculés ?) : 


1) fx) = x? pour -T <= x <=: 


a0 = 72/3 
a(n) = 4*(-1)°/n 
b(n) = 0 


2) f(x) = 0 pour -X <= x <=0, 
J{x) = x pour 0 <=x<7T: 


a0 = x/4 
a(n) = -2/(T*n?) 
b(n) = -(-1)"/n 


3) f(x) = R-x pour 0 <=x<7T, 
Six) = -R+x pour -X <= x < 0: 
a0 = -T/2, 

a(n) = 2/(*n2)*(1-(-1)"), 
b(n) = 2/n*(1-(-1)°). 


Source du programme : 


RCLF 'flags' STO -28 SF 
{ONEIRGD } PURGE 
IFERR 'varind' RCL 


THEN 
1X' SWAP STO 
ELSE 
PURGE 
END 
IFERR 'trafx!' RCL 
THEN 
N SWAP STO 
ELSE 
DROP 
END 
IFERR ‘équdép! RCL 
THEN 
1X°2! SWAP STO 
ELSE 
DROP 
END 
IFERR 'débint' RCL 
THEN 
1-T' SWAP STO 
ELSE 
DROP 
END 
IFERR 'finint! RCL 
THEN 
1T' SWAP STO 
ELSE 
DROP 
END 
"Tracé d'une série de Fourier -1-1 
€ 
£ "f(x):" “Equation de départ" } 
C3 
{ “x: Variable indépendante! } 
€ "f(x)2:" Tracer f(x)? (O ou N)" } 
€ “a:" “Début de l'intervalle" } 
€ 
€ “"b:" Fin de l'intervalle" } 
€ 2 
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} 

{20} 
C'X2'XN!'-T' I! 7} 
équdép varind trafx 
débint finint 5 

LIST INFORM 


IF 
THEN 
08J+ DROP 
tfinint! STO 
tdébint' STO 
Itrafx! STO 
tvarind'! STO 
téqudép' STO 
IFERR ‘'valmoy! RCL 
THEN 
1 '°2/3' SWAP STO 
ELSE 
DROP 
END 
IFERR 'coefan!' RCL 
THEN 
14*(-1)"n/n! SWAP STO 
ELSE 
DROP 
END 
IFERR 'coefbn! RCL 
THEN 
O SWAP STO 
ELSE 
DROP 
END 
R -17 FC? 
IF 
THEN DROP -18 FC? 
IF 
THEN 
D 
ELSE 
G 
END 
END 
modang' STO 
“Tracé d'une série de Fourier -2-1 
€ 
{ "a0:" "Valeur moyenne de La série! } 
€ “an:" "Coefficient an de La série" } 
€ "bn:"! "Coefficient bn de La série! } 
{ ‘Mode angulaire:!" !(R(ad), D(eg) ou G(rad)'" } 
} 
{107} 


€ T° 2/3 14*(-1)-n/n' O modang } 
valmoy coefan coefbn modang 4 LIST 
INFORM 
IF 
THEN 

0BJ+ DROP 

‘modang' STO 
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tcoefbn' STO 
‘coefan' STO 
tvalmoy' STO modang 
DUP R SAME 
IF 
THEN 

DROP RAD 
ELSE 

D SAME 

IF 

THEN 

DEG 
ELSE 
GRAD 

END 
END 
IFERR 'valn!' RCL 
THEN 

3 SWAP STO 
ELSE 

DROP 
END 
IFERR 'trasim' RCL 
THEN 

N SWAP STO 
ELSE 

DROP 
END 
IFERR 'sortie! RCL 
THEN 

E SWAP STO 
ELSE 

DROP 
END 
“Tracé d'une série de Fourier -3-" 


{ "n:"" “Valeurs de n à tracer! } 
{ "nn?2:"" !Tracé simultané des n? (0 ou N)" } 
{ "Sortie:" "(E)cran ou (I)mprimante" } 


EAOT 

{3NE} 

valn trasim sortie 3 æLIST 

INFORM 

IF 

THEN 
OBJ+æ DROP 'sortie! STO 
‘trasim'! STO DUP 


TYPE 5 # 
IF 
THEN 
1 LIST 
END 
‘valn! STO sortie E SAME 
IF 
THEN 
PICT PURGE 
ELSE 


# 166d # 81d PDIM 
END 
trasim O SAME 
IF 
THEN 
1 valn SIZE 
FOR i 
valmoy 1 valn i GET 
FOR j j 
‘n' STO coefan j 
varind * COS * 
coefbn j varind * 
SIN * + + EVAL 
NEXT 
NEXT 
valn SIZE trafx O SAME 
IF 
THEN 
équdép SWAP 1 + 
END 
LIST STEQ FUNCTION 
‘varind' RCL INDEP 
débint NUM finint 
NUM XRNG 0 RES 1 
ATICK ERASE AUTO 
DRAX DRAW sortie E 
SAME 
IF 
THEN 
PICTURE 
ELSE 
CR 


“Série de Fourier équivalente à La fonction: 


équdép + PR1 DROP 
“pour Les valeur de n suivantes: ! 
PR1 DROP valn PR1 
DROP CR PICT RCL 
PR1 DROP 
END 
ELSE 
1 valn SIZE 
FOR i 
valmoy 1 valn i GET 
FOR j j 
in! STO coefan j 
varind * COS * 
coefbn j varind * 
SIN * + + EVAL 


NEXT 
STEQ trafx O SAME 
IF 
THEN 

EQ équdép 2 æLIST STEQ 
END 


FUNCTION ‘varind' 
RCL INDEP débint 
NUM finint NUM 
XRNG O RES 1 ATICK 


ERASE AUTO DRAX 

DRAW sortie E SAME 

IF 

THEN 
PICTURE 

ELSE 
CR 

“Série de Fourier équivalente à La fonction: " 

équdép + 
“ pour n="+n+ 
PR1 DROP CR PICT 
RCL PR1 DROP 

END 

‘varind' RCL PURGE 

NEXT 
END 
END 
END 
END 
flags STOF 


» 


Thierry Bestel (601) 


DES CHIFFRES 
ET DES LETTRES 


Comme vous pourrez le constater ce programme est en 
RPL Uutilisateur. J'ai eu l'idée de le créer durant une 
soirée. 


Ce jeux est inspiré des Chiffres et des Lettres. Afin de 
jouer à ce jeu il faut au minimum 2 joueurs. Il est 
possible soit de jouer au chiffre ou soit de jouer aux 
lettres. 


Inspectons le contenu du programme CHIFFRE : 


Il crée une variable 8c permettant de stocker les chiffres 
choisit le candidat de manière aléatoire. Vous n'avez 
plus que 40 secondes pour tenter de trouver le "bon 
compte". Serait-il possible qu'une personne puisse 
completer ce programme en trouvant la solution du 
programme CHIFFRE (cela n'est pas dans mes capacités). 


PROG. 1 et PROG.2 vont permettre de choisir les consomnes 
ou les voyelles de manière aléatoire. PROG.3 permet de 
choisir les chiffres de maniere aléatoire. 
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Inspectons le programme LETTRE : 


Là aussi il crée une variable '8c' permettant de stocker les 
consomnes ou les voyelles. Là aussi vous n'avez plus que 
40 secondes pour trouver un mot. 


DIR 
CHIFFRE 
« 
“uw BC! STO 1 6 
FOR i 
MÇ[1]ERE [2JEME [3JERE [4]EME" 
{ "#1 } INPUT OBJæ 
IF TYPE 0 == 
THEN 
PROG.3 
END 
BC + 'BC' STO 
NEXT 
+3 
FOR j 
RAND 10 * FLOOR STR 
NEXT 
++" <CR>!! +" " SWAP + 
BC + CLLCD 3 DISP 40 WAIT 1800 2 BEEP 
» 
LETTRE 
« 
-57 CF -56 CF "# :BC' STO 1 9 
FOR i 
" [C]onsomne 
ou 
[Vloyelle 7?" 
€ "a } INPUT OBJ+> 
IF V SAME 
THEN 
PROG. 1 
ELSE 
PROG.2 
END 
BC SWAP + 'BC' STO BC 3 DISP 2 WAIT 
NEXT 
“Attention:" CLLCD 1 DISP .75 WAIT BC 
CLLCD 4 DISP 40 
WAIT 1450 1.75 BEEP 
» 
EXIT 
« 
HOME 
» 
PROG. 1 
« 
{ “At nEn ny" no" ny" my : 


DO 

RAND 10 * FLOOR 'k' STO 
UNTIL 

k 6 <k 1 > AND 
END 
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k GET 


PROG. 2 


« 


? “pu nc np" pu nçu “Hu nyn nu npu “Mu 
“Nu pu "on "Ru nçu nu nyn nu mx" nzu 

ë, 

DO 
RAND 10 * FLOOR 'k! STO 

UNTIL 
k 20 < k 1 > AND 

END 

k GET 

» 
PROG.3 


« 


€ 
1 " u2 " n3 u LA n us " “6 " "7 "“ "8 " ng " 


u10 1 u25 ü 209 n 1SQ 75 nu u100 ! 1200 " 
} 
DO 
RAND 100 * FLOOR 'k' STO 
UNTIL 
k 1 < k 16 > AND 
END 
k GET 
» 
k 12 BC "" 
END 


Grégory Mimoun (576) 


TRUCS, ASTUCES ET 
PETITS UTILITAIRES 


Listes et musique 


Faire de la musique sur HP48 (ou HP28) est très simple à 
programmer puisqu'il suffit d'exécuter une suite de : 


f1 di BEEP f2 d2 BEEP ....... fn dn BEEP 
où f1, f2...fn sont des fréquences correspondant aux 


notes du morceau de musique et di, d2...dn sont les 
durées de ces notes. 


Une solution élémentaire consiste à établir une liste de 


couples fréquence/durée : 


LMUS : CN de. ssee f2 d2 f1 di } 


donc la dernière note occupant la première position dans 
la liste, et d'exécuter le programme : 


PLAY 
« LISTæ 1 SWAP START BEEP 2 STEP » 


Il pourra sembler plus naturel d'établir la liste de notes 
avec l'ordre suivant: 


€ f1 di f2 de .....… .. fn dn } 


puis de l'inverser. Ici la commande REVLIST des 
HP48G/GX n'est pas utilisable car il faut inverser la 
position des couples fréquence/durée. On pourra utiliser 
le programme pour tous : 


REVMUS 
« 
DUP SIZE + L N 
« 
NT" 
FOR I 
L I GET L 1 1 + GET 
-2 STEP 
N LIST 
» 


»} 


Nouvelle solution pour HP48G/GX 


Ces machines offrent de nouvelles possibilités de 
traitement des listes (voir le chapître 17 du manuel 
d'utilisation). En ce qui concerne notre problème musical 
on peut opérer avec deux listes: 


CF 
LD : { di d2 ...... dn } 


LF donc pour la liste des fréquences des notes et LD pour 
la liste des durées correspondantes. Avec ces deux listes 
comme arguments (LF au niveau 2 et LD au niveau 1) il 
suffira tout simplement de taper BEEP pour exécuter la 
musique. 


Exemple: 


BEEP avec les deux listes, ci-dessous mises sur la pile et 
dans cet ordre, vous jouera une musique de Jean-Michel 
Jarre. 


LFjarre 


{ 622 698 783 698 622 783 622 698 783 698 
622 783 587 622 698 622 587 698 587 622 
698 622 587 698 523 587 622 587 523 622 
523 587 622 587 523 622 587 523 466 415 


466 415 391 493 587 622 698 783 698 622 
783 622 698 783 698 622 783 587 622 698 
622 587 698 587 622 698 622 587 698 523 
587 622 587 523 622 523 587 622 587 523 
622 587 523 466 415 466 415 391 493 587 } 


LDjarre 


€ .125 .125 .125 .125 .125 .375 .125 .125 .125 .125 
.125 .375 .125 .125 .125 .125 .125 .375 .125 .125 
.125 .125 .125 .375 .125 .125 .125 .125 .125 .375 
.125 .125 .125 .125 .125 .5  .125 .375 .999 .375 
.375 .25 .999 .999 1.998 .125 .125 .125 .125 .125 
.375 .125 .125 .125 .125 .125 .375 .125 .125 .125 
.129..125 375 .125 .125 129 5125 -185::373 5725 
.125 .125 .125 .125 .375 .125 .125 .125 .125 .125 
5 -125 5375 .999 :375.375 .25 -999:999 1.996 


Récupération pour HP48G/GX et S/SX 


Les possesseurs de HP48G/GX pourront récupérer des 
listes du type LMUS ci-dessus et les transformer en deux 
listes LF et LD en inversant d'abord LMUS avec le 
programme REVMUS ci-dessus puis en obtenant deux listes 
de types LF et LD avec le programme sp. 


3S>3D 
« 
DUP SIZE + MN 
« 
{ } DUP 1 N 
FOR ! 
SWAP M 1 GET + 
SWAP M 1 1 + GET + 
2 STEP 
» 


» 


A l'inverse les possesseurs de HP48S/SX pourront 
récupérer la musique ci-dessus, de Jean-Michel Jarre, en 
rassemblant les deux listes LF et LD en une seule pour être 
utilisée par le programme PLAY ci-dessus. Le programme 
pæs ci-dessous fera l'assemblage des deux listes en une 
seule qu'il faudra inverser avec REVMUS. 


D>S 
« 
DUP SIZE > FD N 
« 
1N 
FOR 1 
F 1 GET D 1 GET 
NEXT 
N 2 * LIST 
» 


» 
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Remarques: 


Ce qui a été exposé ci-dessus est la façon la plus simple 
de faire jouer de la musique par nos machines mais cela 
n'est pas sans inconvénients. Ces listes sont gourmandes 
en mémoire (pour le morceau ci-dessus qui ne comporte 
que 90 notes chaque liste occupe 950 octets soit au total 
1900 octets sans les noms). Il existe des méthodes de 
codage permettant de réduire notablement 
l'encombrement mémoire et d'éviter certains problèmes 
relatifs aux grosses listes lors de l'exécution musicale. 


Il reste d'autre part le problème des silences qui se 
traduisent dans les programmes par : 


-.... durée WAIT .... 

et qu'on ne peut remplacer dans les listes par: 
q pe P 
css fréquence=0 durée .... 


car par exemple 0 5 BEEP ne fera pas un silence de 5 
secondes mais de 0 seconde. 


Enfin les programmes ci-dessus sont livrés sous une 
forme très rustique pour être compréhensibles par les très 
débutants (voir article BODE du JPC-98). 


Guy Toublanc (276) 


BINOME DE NEWTON 
EN SYSTEM RPL 


Pour ma première participation au club, voici un petit 
programme qui calcule de manière assez simple et 
rapide, les coefficients du Binôme de Newton. Ce 
programme vous sera utile si vous êtes en Terminale par 
exemple. 


Note : 
Les mnémoniques et la terminologie utilisées sont 


conformes à RPLCOMP.EXE distribué par HP dans les 
disquettes HORN, ici la 4. 


Les points d'entrée sont donc officiels et ce programme 
marchera sur toute HP48. Dans le cas contraire et par la 
suite, ce sera indiqué en commentaire. 
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Tout d'abord, voici le source du programme : 


BINO: Computes the coefficients of ) 
Newton's BINOmial ) 

Written by F. BARBAISE for the HP-48 ) 
Copyright Bouli Corporation 1994 ) 
Bytes: 37.5 Checksum: # 87E6 ) 


MO OR 


CKINOLASTWD CKREAL DUP COERCE #1+ 
ZERO DO (DO) 

DUPINDEXA UNCOERCE  XCOMB 
SWAPLOOP (LOOP) 

COERCE #l+ CN 


; 
Puis le commentaire : 


Une fois compilé avec RPLCOMP.EXE, vous devriez obtenir 
le checksum et le nombre d'octets indiqués en 
commentaire dans le source. 


En langage système (Sys-RPL), il faut savoir que les 
instructions sont dépourvues de protections. C'est au 
programmeur de les faire ! Ici, pour calculer les 
coefficients, il nous faut un réel au niveau 1 de la pile. 
En effet, si les Entiers Système sont parfaitement 
accessibles en Sys-RPL, ils n'en sont pas moins en User- 
RPL (langage utilisateur, classique) ! La séquence 
CKINOLASTWD CKREAL teste si il y a quelque chose dans la 
pile (CKINOLASTW) si oui, alors teste si c'est bien un 
nombre réel (CKREAL). 


Les tests de présence et de nature d'argument étant faits, 
nous allons pouvoir commencer le programme. 


DUP COERCE #1+ va sauvegarder le nombre réel et le 
transformer en Entier Système puis lui ajouter 1. Par 
exemple, si on met le réel 4 au niveau 1 de la pile, on 
aura : 


ès 4 
1= <5h> 


Ceci sert à définir la boucle de calcul des coefficients du 
binôme. Cette boucle va de O à n, soit n+1l termes à 
calculer. Il faudra donc utiliser une boucle de type 
ZERO _DO (DO) ... LOOP. 


Dans cette boucle, calculons ces fameux coefficients tout 
simplement à l'aide de la fonction xcoM8 qui nécessite 2 
réels en argument. 


DUPINDEXA UNCOERCE %COMB va calculer ces coefficients. 
DUPINDEXA fait une copie (bup) de l'objet situé au niveau 1 
(ici un réel) rappelle le compteur de la boucle (INDEXa) 
qui est un entier système, le transforme en un nombre 


réel (UNCOERCE) et fait une combinaison de n éléments 
choisis parmi INDEXa c'est-à-dire : C,; 


SWAPLOOP (LOOP) termine la boucle en replaçant le réel au 
niveau 1 de la pile (qui avait été sauvegardé, vous vous 
en rappelez ?). 


COERCE #1+ €3N va transformer à nouveau le réel de 
départ en Entier Système, lui ajouter 1 et créer une liste 
(ON) soit une liste de n+1 objets car on a fait une boucle 
de0àn. 


Voila c'est fini. Pour clore le tout voici tout de même un 
exemple (simple) d'utilisation : 


On veut développer (a+b)6... Pas facile de calculer les 
coefficients de a, a*b, a**b? … Et bien mantenant, vous 
le pouvez ! Entrez le réel 6 dans la pile et lancez le petit 
programme, vous devriez obtenir: 


1: € 16 15 20 15 6 1 } 


C'est plus précisément la sixième ligne du triangle de 
Pascal qui sert au développement de (a+b)". 


Enfin sachez que si vous n'avez pas de PC et 
RPLCOMP-EXE, ne désesperez pas ! Ce logiciel existe sur 
HP48, cherchez bien... 


Frédéric Barbaise (624) 


REDUCTION DE PROGRAMMES 
Acte Ill 


Merci à Guy Toublanc de m'avoir signalé les 
inperfections dans mon programme, je rectifie mon tir et 
voici un "sTRIP" qui prend moins de place (312 octets, 
contre 326) et pas de bugs. sTRIP fonctionne également 
sur les listes comportant les commandes en User-RPL, 
par exemple pour créer les menus exécutables (voir 
JPC 85 p15). 


ASSEMBLE 
nibasc \HPHP48-P\ 
RPL 


Lo. 
INHARDROM? ?SEMI 


DUPNULL£{}? casedrop NULL{{}} 
DUPNULLCOMP? casedrop  'NOP 


INNERCOMP OVER! x>> 
EQIT 

:: DUP #1+ROLL ROT2DROP #2- ; 
DUP#0 DO (DO) 

ROLL 


1 xSYSEVAL 

EQcase 
OVER TYPEHSTR? 
NOTcase :: 2RDRO®P :; 
DROP TWO NTHCOMPDROP 


LA 


DUP' xIF EQ caseDROP 
DUP' xCASE EQ caseDROP 
DUP' xUNTIL EQ caseDROP 
DUP' xENDTIC EQ caseDROP 
 xIFEND 
EQcase 
ISTOP-INDEX #1= caseDROP 
RDROP 
ï 
RDROP 
INDEXQ #1-  INDEXSTO 
ISTOPQA #1- ISTOPSTO 
RDROP 
; 
1 x<< EQcasedrop 'NOP 
! xSILENT' EQcasedrop :: ! 1! ; 
" x>>ABND  EQcasedrop :: ‘ ABND ; 
DUPTYPELIST? case ID STRIP 
DUPTYPECOL? IT ID STRIP 
ISTOPa 
LOOP 
:2N 
>R 
OLASTOWDOB!  CK&DISPATCH1 
FIVE 
R> EVAL DUPTYPECOL? NOT?SEMI 
DOBINT DOLIST CHANGETYPE 
EIGHT 
NOP 


Lu Vy Huynh (579) 


JPC 99 Page 15 





M 


p ( 





JPC 99 Page 16 


er 


HP95 / HP100 / HP200 


J. Belin Nouvelles Cartes Mémoire 18 
G. Toublanc SOS pour Lotus 18 
J. Belin Animations sur HP95/100 (acte IT) 19 

Le coin des codes 31 


JPC 99 Page 17 


NOUVELLES 
CARTES MEMOIRES 


Les DoubleFlash PLus 


La firme ACE vient d'introduire sur le marché de 
nouvelles cartes Flash, équivalentes aux Sundisk, sous la 
dénomination DoubleFlash+. 


Il s'agit en fait de cartes fabriquées par 
IBM Microelectronics. La principale différence par 
rapport aux Sundisk est qu'elles sont équipées d'une 
mémoire cache de 32 ko, permettant d'accélérer 
notablement la lecture. 


Elles ne fonctionnent que sur HP100/200. 


Comme pour les cartes DoubleFlash, elles sont 
accompagnées de versions de drivers spécialement 
écrites par ACE, ainsi que d'autres utilitaires tel que 
BATTMAN. 


Les prix sont inférieurs de 15 à 20% à ceux des Sundisk 
commercialisées sous la marque ACE (DoubleFlash), 
soit : 


5Mo : 309$ 
10Mo : 459$ 
20Mo : 799$ 
30Mo : 11498 
40Mo : 1499$ 


Les capacités indiquées sont les valeurs réelles 
(hardware), et non les reférences données très 
discutablement par ACE (tenant compte de la présence 
de Stacker) pouvant laisser penser que la capacité est 
double. 


Il est à noter qu'il a été constaté un problème lorsque des 
piles alcalines Toshiba ou Duracel sont installées dans le 
palmtop, entrainant l'affichage intempestif du message 
"Low Battery". Cela est dû du au fait que ces cartes 
provoquent un drain de courant plus élevé lorsque l'on 
allume le palmtop. Il est donc conseillé d'utiliser des 
accus (Nicad ou Nimh) ou des piles au lithium. 


Pour ceux qui n'auraient pas la nouvelle adresse d'ACE, 
la voici : 


ACE Technologies 
592 Weddell Drive #6 
Sunnyvale, CA 94089 

USA 
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Des cartes Ram à bas Prix 


Pour ceux qui ne peuvent pas s'offrir les cartes 
précédentes, mais qui ont un besoin pressant 
d'augmenter leur capacité de stockage, il a été mentionné 
que les cartes Ram 1Mo commercialisées à 500F par 
Apple pour le Newton fonctionnaient parfaitement sur 
les Palmtops HP (bien que certaines mauvaises langues 
aient déclaré qu'il fallait absolument retirer le très visible 
logo Apple pour obtenir un fonctionnement correct !). 


Attention, ceci ne concerne que les cartes 1 Mo. les 
cartes Newton d'une capacité supérieure sont en fait des 
cartes Flash au format Intel, incompatibles avec les 
HP95/100/200. 


Jacques Belin (123) 


LOTUS HP : S.O.S 


En ce qui concerne les nouveaux possesseurs de HP100 il 
y a un problème relatif à la documentation du Lotus 
intégré à la Rom. Celui-ci est une version 2.4 or les 
versions pour PC sont plus évoluées puisque maintenant 
elles fonctionnent sous Windows. Les livres relatifs à 
Lotus dans ses anciennes versions disparaissent des 
catalogues des éditeurs. Le manuel du HP100 consacre à 
peine quatre pages à Lotus, HP se retranchant devant le 
fait que Lotus est déjà familier aux utilisateurs de 
HP100 ! 


Ceci a pour conséquence qu'il est difficile de connaître 
actuellement ce qui distingue le Lotus des HP100 de 
celui qu'on nous présente dans les livres dans ses 
versions les plus récentes pour PC. 


Un lecteur de JPC ayant une expérience du Lotus HP100 
(ou même HP95) et de celui des PC, pourrait-il apporter 
quelques informations sur ces différences et ce qui peut 
apparaître comme des spécificités côté HP100/95. Il y a 
certainement des possibilités qui ne sont pas évidentes à 
priori pour un débutant. 


Merci d'avance. 


Guy Toublanc (276) 


ANIMATIONS : 
Acte Il 


Dans l'avant dernier JPC, je vous ai présenté une 
méthode et des outils permettant de générer des 
animations dans un format compatibles avec nos 
palmtops. 


Ce deuxième article vous présente donc le programme 
PLAYA95, qui vous permettra d'afficher ces animations. 
Rappelons (et c'était un de mes imperatifs initiaux), qu'il 
fonctionne aussi bien sur HP95 que sur HP100/HP200. 


Utilisation 
La syntaxe du programme est la suivante : 


playa9S [-l] [-d] files [files..] 
Il accepte comme paramètre un ou plusieurs fichiers A95 
(décrits dans le premier article). Les wildcards sont 


autorisés. 


L'option ‘-l' indique que l'on veut créer une boucle 
réaffichant tous les fichiers. 


L'option '-d' permet de désactiver l'affichage du message 
"Scanning file" apparaissant avant l'affichage de 
l'animation. 


Une fois que le fichier est chargé, vous pouvez utiliser 
les touches suivantes : 


- [ESC] : Fin d'exécution du programme. 
- [E] : Passage au fichier suivant. 

- [s1 : Stoppe l'animation. 

- [R] : Relance l'animation. 


Lorsque l'animation se déroule, il est possible de 
contrôler la vitesse d'affichage à l'aide des touches 
suivantes : 


- [+] : Accélère l'animation. 
- ç-] : Ralentit l'animation. 
- [+] : Restitue la vitesse originale. 


Lorsque l'animation est stoppée, les touches actives sont 
les suivantes : 


- [3] : Affiche l'image suivante. 

- [€] : Affiche l'image précédente. 
- (F1 : Affiche la première image. 
- {L] : Affiche la dernière image. 


Performances 


Comme je l'ai indiqué la dernière fois, les performances 
sont dépendantes du mode de compression, mais aussi du 
support de stockage du fichier. 


À titre indicatif, voici les performances maximum que 
l'on peut atteindre sur un HP100 (avec un fichier 
contenant des images non compressées) suivant le type 
de stockage : 


- Carte SunDisk (version SDPLS) : 30 im/sec. 
- Disque C et Carte Ram : 50 im/sec. 


Avec un HP95, la vitesse est d'environ 20 images par 
seconde, quelque soit le support. 


Il est à noter que pour les animations de type ‘Ping Pong' 
la vitesse d'affichage en sens inverse peut être beaucoup 
plus lente que dans le sens normal, d'autant plus que le 
fichier gros. Cela est dû aux algorithmes de lecture de 
fichiers du DOS qui sont optimisés dans le sens normal 
de lecture (dans l'autre sens, et même dans le cas d'un 
accès "direct", le DOS doit retrouver la position de l'octet 
à lire en relisant la chaine des pointeurs des clusters 
incluse dans la FAT). 


Utilisation avec Stacker 


Si le programme fonctionne très bien avec des fichiers 
stockés sur les cartes de type SunDisk, il n'en n'est pas de 
même lorsque la carte est compressée avec un logiciel de 
type Stacker, qu'il s'agit d'une carte Ram ou Flash. 


En effet, l'animation devient saccadée, en affichant 
extrèmement rapidement trois ou quatre images, puis 
s'arrétant longuement sur l'image suivante. Cela est dû 
au fait que lorsque l'on demande de lire un certain 
nombre d'octets dans un fichier situé dans une unitée 
compressée, Stacker lit un plus grand nombre d'octets et 
les décompresse dans un buffer intermédiaire. Si cette 
méthode est efficace dans le cas d'un disque dur 
(possédant un temps d'accès important), elle l'est moins 
dans le cas d'une carte mémoire. 


Il est théoriquement possible de réduire la taille du 
buffer, (afin d'obliger Stacker à ne lire qu'une seule 
image à la fois), mais je n'ai pas constaté de différence 
notable. 


La seule solution que je conseille donc aux utilisateurs 
des cartes stackées est de transférer (de manière 
temporaire) le fichier A95 sur le disque C. 
Malheureusement, cette solution sera inapplicable si 
vous êtes possesseur d'un HP100 1Mo (ou pire, d'un 
HP95 512 Ko !) et que vous désirez visualiser une très 
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grosse animation (à titre indicatif, une de mes dernières 
créations fait plus de 980 ko !). 


Notez que ces observations concernent Stacker 3.0. Je 
n'ai pas eu la possibilitée d'effectuer des tests avec la 
nouvelle version. 


Utilisation sous le System Manager 


Le programme semble bien fonctionner lorsqu'il est 
lancé à partir du System Manager (par l'intermediaire 
d'un fichier batch, afin d'ajouer les paramètres). Il est en 
effet possible (sur le HP100) de revenir aux applications 
System Manager lorsque l'animation est visualisée (ce 
qui stoppe son déroulement, puisque le SM n'est pas un 
vrai multitache) puis de revenir sur l'animation sans 
encombre. 


Cependant, le programme modifiant la fréquence du 
timer interne (elle est multipliée par 16), certains 
inconvénients peuvent apparaitre. 


- L'heure affichée par les principales applications est 
erronnée et l'application ‘Chronomètre' devient 
inutilisable, car les secondes semblent défiler à un 
rythme rapelant une séquence célébre du film Za 
Machine à remonter le temps. Notez cependant que dès 
que vous terminerez l'exécution de PLAYA95, tout rentrera 
dans l'ordre et l'heure réelle sera correctement affichée. 


- Si vous utilisez d'autres programmes effectuant des 
mesures des temps, ces valeurs auront des grands risques 
d'être inexacts. Il est à noter à ce sujet que la valeur 
indiquée par 1008uopY pour le temps d'utilisation des 
batteries est irrémédiablement erronée, car elle est 
stockée dans une variable mémoire indépendante, hors 
de mon contrôle. 


- Le HP100 utilisant le timer pour contrôler le temps de 
charges des batteries (il n'est en pleine charge que 
pendant les six premières heures), il y a un risque de 
recharge insufisante si vous lancez une animation 
pendant une phase de recharge. 


- Plus généralement, certains programmes utilisant le 
timer pour d'autres fonctions (par exemple les jeux 
d'arcades) deviendrons impossibles à utiliser. 


Par contre, les alarmes étant gérées par l'horloge temps 
réel (circuit indépendant du timer), il n'y aura pas de 
problème. Mieux, si une alarme survient pendant 
l'affichage d'une animation, celle ci sera interrompue et 
l'alarme traitée. Cependant, j'ai constaté que le HP100 
affichait un message d'erreur tout de suite après, lorsque 
il devait sélectionner l'alarme suivante. N'ayant pas eu le 
temps d'effectuer de tests à ce sujet, je vous conseille 
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d'être prudents si vous êtes un gros utilisateur de ces 
alarmes. 


Pour terminer sur ce sujet, il est à noter enfin que le 
temps d'auto-extinction étant aussi géré par le timer, il a 
fallu aussi le modifier afin d'éviter que le palmtop 
s'éteigne au bout de 10.25 secondes (avec la valeur par 
défaut). Il aurait été possible de modifier cette valeur en 
tenant compte de celle choisie par l'utilisateur, mais j'ai 
préféré la fixer à 3 minutes. Cela permet d'ètre sûr, d'une 
part, de ne pas avoir une extinction intempestive si 
l'utilisateur a sélectionné une valeur trop faible, et d'autre 
part d'éviter une trop grande consommation des piles 
dans le cas contraire. Bien sür, la valeur originale est 
restituée en fin d'exécution du programme. 


Analyse du programme 


Le principe général du programme consiste à lire une 
image à la fois sur le disque (car certaines animations 
sont suceptibles d'etre plus importantes que la mémoire 
disponible) puis l'afficher à un top donné régulièrement 
par l'horloge standard de l'ordinateur (rendant ainsi la 
vitesse d'affichage égale sur tous les ordinateurs, même 
si il possèdent des microprocesseurs différents). 


Sur tous les IBM PC, un top d'horloge est donné de façon 
standard 18.2 fois par seconde, par l'intermédiaire de 
l'interruptions 1Ch. Il suffirait donc d'écrire un petit 
gestionnaire d'interruption lançant l'affichage de l'image 
dès que cette interruption est appelée. 


Cependant, il est nécessaire de modifier cette valeur, car 
elle n'est pas très adaptée pour notre application, pour les 
raisons suivantes : 


- Elle est un peu trop importante, car les palmtops sont 
souvent incapables de lire, décoder et afficher dans ce 
laps de temps les images stockées sous le format PCX. 
Comme je l'ai dit dans le précédent article, la vitesse 
admise pour le HP95 se situe plutôt vers les 10-12 im/s. 

- Il serait tout simplement intéressant de donner à 
l'utilisateur la possibilité de faire varier la vitesse 
d'affichage ! 


Théoriquement, la manière la plus simple pour modifier 
la vitesse aurait été de modifier directement la fréquence 
de sortie du circuit commandant les interruptions 1Ch. 
Malheureusement, si il est tout à fait possible de 
l'augmenter, nous ne pouvons pas la diminuer, car la 
fréquence de 18,2 hz est justement la valeur minimum 
autorisée par le hardware de l'IBM PC (voir plus bas 
pour plus de détails). 


Afin d'obtenir une plage de vitesse intéressante, il est 
donc nécessaire de recourir à une astuce, consistant à 
augmenter la fréquence de sortie de l'horloge, puis la 


diviser de façon logicielle, à l'aide d'un compteur 
n'autorisant l'accès au code de l'interruption qu'au bout 
d'un certain nombre d'appels. 


Par souci de simplification, j'ai donc choisi de travailler 
à une fréquence "hard" fixe plus élevée, et de contrôler la 
vitesse à l'aide du compteur "soft". L'inverse (fréquence 
variable et compteur fixe) aurait cependant été possible. 
J'ai donc multiplié la fréquence "hard" par 16. Associé 
avec un diviseur "soft" acceptant 256 valeurs, ceci 
permet d'obtenir une plage de vitesses "utile" comprise 
entre 1.13 im/s et 291.2 im/s. La vitesse maximum étant 
évidement toute théorique, compte tenu des temps de 
lecture, de décompression et d'affichage d'une image. 


Une fois le problème de la fréquence réglée (enfin, pas 
tout à fait, voir un peu plus bas.) nous pouvons 
déterminer à quel moment le programme peut activer la 
fonction viewim. Cet accès n'est autorisé que lorsque 
toutes les conditions suivantes sont validées : 


- Le compteur "soft", (intent) est arrivé à la valeur zéro. 
Ce conmpteur est initialisé avec la valeur correspondant 
à la vitesse courante (en ‘ticks'). La vitesse par défaut 
étant la valeur stockée dans le fichier. 

- Si nous somme en mode "défilement" (flag run armé). 
Dans le cas contraire, le contrôle de l'affichage est géré 
par routines de gestion du clavier. 

- Si le flag buffpt indiquant que le buffer contenant une 
image est plein. Ceci permet d'éviter de lancer l'affichage 
alors que le DOS est toujours en train de lire le fichier. 


Notez que le fait d'avoir placé l'appel à la routine de 
lecture du fichier en dehors de la routine d'interruption 
complique un peu le programme (à cause de l'utilisation 
de la variable buffpl), mais cel: permet de "durcir" le 
programme, en évitant la possib:iité d'un débordement 
de pile ou d'une réentrance du DOS. 


Une puce et un Bug 


Au cours du développement du programme, j'ai été 
confronté à un problème assez étrange : si le programme 
fonctionnait parfaitement sur le HP100, la fréquence 
d'affichage était totalement instable sur le HP95, 
provoquant une animation totalement sacadée ! Bien sür, 
après avoir éliminé la possibilité d'un bug dans le 
programme, mes soupçons se sont portés sur des 
hypothèses relatives à la différence de vitesses des 
microprocesseurs des deux palmtops (surcharge 
temporaire de la pile). Cependant, quelques tests 
portants sur des gestionnaires d'interruption très 
simplifiés me montrèrent que ce n'était pas le 
programme qui était à mettre en cause, mais l'horloge 
elle même. En fait, après avoir fait part de mes 
difficultés à un des développeurs du HP95 à Corvallis, 


celui ci m'a appris que le problème ne venait pas du 
programme, mais d'un bug présent dans certaines 
versions du Hardware du HP95 ! 


Après que mon interlocuteur m'ait fourni quelques 
renseignements complémentaires sur la façon dont ce 
bug était géré par le Bios du HP95 (merci Everett !), il 
m'a été possible de corriger ce problème de façon à ce 
que le programme fonctionne aussi bien sur le HP95 que 
sur le HP100. 


Mais avant de discuter de cela, je pense qu'il n'est pas 
inutile de décrire brièvement comment sont générés les 
signaux d'horloge sur IBM PC. D'autant plus que j'ai 
remarqué que ce sujet était de moins en moins abordé 
dans les livres traitant de la programmation système sur 
ces ordinateurs. 


Lors de la sortie de l'IBM PC, la gestion de certaines 
fonctions utilisées automatiquement, à des périodes 
régulières (rafraichissement de la Ram, gestion de 
l'horloge...) était assurées par un circuit intégré Intel, 
portant l'appelation de 8253 (ou 8254 sur certains 
modèles ultérieurs). Depuis, vous ne trouverez plus ce 
circuit sur les cartes mères de votre ordinateur, car ses 
fonctions ont été intégrées dans des puces plus 
généralistes. Mais les méthodes d'accès ont été 
conservées. 


Pratiquement, ce circuit se compose de 3 compteurs (ou 
plutôt 3 décompteurs) 16 bits. L'évolution de leur valeur 
est assurée par une horloge externe travaillant à la 
fréquence de 1193180 Hz, sur tous les compatibles IBM 
(correspondant au quart de la vitesse des 
microprocesseur utilisés sur les premiers PC). Lors du 
passage à O d'un des compteurs, une patte du circuit 
correspondant à celui-ci change d'état, ce qui provoque 
la génération d'une interruption sur l'IBM PC. Par 
exemple, le compteur 0 est réservé à la génération d'un 
signal d'horloge qui est lié matériellement à 
l'interruption Bios 08h gérant (rntre autres) le compteur 
incrémentant l'heure courante. Cette interruption possède 
en plus la particularité de générer une interruption 1Ch à 
chaque appel. Normalement, cette dernière interruption 
retourne immediatement au code de l'interruption 8h, 
mais il est possible (cela a été fait pour ça d'ailleurs) 
d'écrire un petit gestionnaire interceptant cette 
interruption pour effectuer, en plus, une action à chaque 
top d'horloge. C'est bien sûr ce j'ai fait dans mon 
programme. 


Le circuit possède 6 modes de travail permettant de 
déterminer le type de comptage à effectuer. Par exemple, 
le mode 0 travaille en décompteur simple. Une fois un 
des compteurs chargé avec une valeur quelconque, il 
commence à la décompter. Lorsque il atteint la valeur O, 
il provoque une interruption, puis continue le 
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décomptage, en repartant de sa valeur maximum, soit 
65536. Dans le cas du mode 2, la différence est que c'est 
la valeur de départ que est prise en compte après l'arrivée 
sur le 0, et non 65536. Ceci permet de transformer le 
compteur en diviseur de fréquence. 


Chaque compteur peut bien sûr travailler indépendament 
sur un mode différent. 


Normalement, afin de modifier la fréquence d'activation 
de l'interruption 08h/1Ch (autrement dit, le compteur 0 
du 8253), on utilise le code suivant : 


mov al,34h 

out &3h,al 

imp $+2 

imp $+2 

mov ax,(1193180/FRQ) 
out 40h,al 

imp $+2 

imp  $+2 

mov al,ah 

out &0h,al 


La première valeur, stockée dans le port 43h, est une 
concaténation de bits représentant les différents modes 
de travail du 8253. En simplifiant, et en initialisant 
certains bits avec les valeurs classiquement utilisées, 
nous pouvons dire que son format binaire est cc11ppp0, 
avec cc indiquant le numéro du compteur et ppp 
indiquant le mode de travail. La valeur indiquée (34h) 
indique donc que l'on désire faire travailler le compteur 
0 en en mode 2 (diviseur de fréquence). Le compteur lui 
même étant accessible par le port 40h. 


Les lignes jmp $+2 n'ont pour effet que de passer à 
l'instruction suivante. C'est en fait une petite astuce 
permettant de ralentir le programme, afin de laisser au 
8253 le temps de traiter les ordres que nous lui 
envoyons. 


Fra est la fréquence désirée. Si on divise la fréquence 
d'entrée du 8253 par FRa, nous obtenons la valeur du 
diviseur devant être stocké dans le registre du circuit. La 
taille de celui-ci étant de 16 bits, la valeur maximum 
admissible est de 65535. Si nous divisons la fréquence 
maximale (1193180 Hz) par 65535, nous obtenons 
environ 18.2 Hz, qui est la fréquence ninimum pouvant 
être générée sur l'IBM PC. 


Ceci expliqué, revenons au problème affectant le HP95. 
Notons au passage qu'il n'existe que pour les révisions A 
et B du Hooper, le circuit Intel/HP spécifique au HP95 
intégrant la plupart de l'électronique logique (hors 
microprocesseur et mémoires). Une version C, corrigeant 
ces défauts à été introduite, mais très tardivement. Vous 
pouvez utiliser le programme 951NF0 (présent sur notre 
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disquette n°4) pour connaitre quelle version de HP95 est 
en votre possession. 


La solution à utiliser est d'utiliser le mode 0. La 
différence par rapport au mode 2 est qu'une fois la valeur 
0 atteinte (et l'interruption armée), il ne recommence pas 
le décomptage à partir de la valeur que l'on a stockée, 
mais à partir de 65535. Ce qui implique que l'on devra, à 
chaque appel de l'interruption, recharger la valeur 
initiale dans le 8253. Ces instructions devront bien sûr 
être incluses dans le gestionnaire d'interruption. 


Tout ceci serait encore simple (enfin, relativement !) si il 
ne falait pas prendre un autre élément en compte. En 
effet, si nous stockons la valeur correspondant à la 
fréquence désirée, nous constatons vite que cette 
fréquence est légèrement plus faible que ce que nous 
attendons. Cela est dû au fait nous ne réinitialisons pas 
le 8253 immédiatement après que l'interruption se soit 
produite, mais un peu plus tard. En effet, il ne faut 
oublier qu'entre la première instruction exécutée par 
l'interruption et celle commandant l'initialisation du 
8253, il y a un certain nombre de lignes de code, situées 
tout au début de notre gestionnaire d'interruption (et 
incluant en partie la routine de réinitialisation elle même 
|), mais aussi un certain nombre des lignes (à priori 
inconnu) précédent l'appel à l'Int 1Ch, dans le 
gestionnaire de l'interruption 08h... 


Il faut donc retrancher à la valeur initiale, une autre 
valeur correspondant au temps d'exécution de ce code. 


Dernière difficulté, cette valeur est différente pour 
chaque machine. Ceci à cause de plusieurs facteurs : 

- La vitesse d'horloge du microprocesseur. 

- Son type (un 80386 exécute certaines instructions en 
moins de cycles d'horloge que le 8086). 

- Le code du gestionnaire de l'interruption 08h, qui est 
différent pour chaque BIOS. 


Afin de déterminer cette valeur, nous pouvons utiliser 
deux méthodes : 

- Soit calculer le temps théorique d'exécution, en 
convertissant (à l'aide des tables fournies par Intel) 
chaque instruction en nombre de cycles d'horloge 
correspondant, puis en tenant compte de la vitesse du 
microprocesseur. Si cela vous parait facile, n'oubliez pas 
que cela nécessite de désassembler une partie du code le 
code de l'interruption 08h. C'est simple si l'appel à l'Int 
1Ch est au début, beaucoup moins si il est à la fin et qu'il 
y a de complexes sous-programmes entre les deux. 

- Soit en mesurant, à l'aide d'un chronomètre, le temps 
d'intervention d'un évenement dépendant de 
l'interruption 08h, puis en déterminant la valeur 
recherchée da façon à que cet évenement survienne au 
bon moment. Pour notre cas, je me suis tout simplement 
basé sur le temps d'autoexctintion des palmtops, que j'ai 
fixé, rapellons le, à trois minutes. Le résultat est peut 


être un peu moins précis, mais c'est suffisant pour la 
plupart des applications. 


Pour notre programme, la valeur théorique à charger 
dans le 8253 est de 1000h (puisque nous voulons 
multiplier la fréquence originale par 16). Après le test 
précédement cité, nous obtenons 0E24h pour le HP95 et 
OFFC pour le HP100. La valeur correspondant au HP100 
devrait convenir pour le HP200, à moins (et c'est peu 
probable) qu'il y ait eu un grand changement de la code 
de l'interruption 08h. 


Une fois que la valeur recherchée est déterminée pour 
chaque machine, il n'y a plus qu'à la stocker dans une 
variable (que j'ai appelé PICval) initialisée au début du 
programme, ou dans la routine d'initialisation du 
gestionnaire d'interruption, comme ceci : 


mov ax,&ddé4h ; test : HP95 ou HP100/200 


int 15h 

cmp EL,2 

je initi_1 

mov word ptr [PICval],0E24h 
imp initi_2 


initi_1: mov word ptr [PICval],0FFCh 


initi_2: mov al,34h 
out 43h,al 
jmp  $+2 
jmp  $+2 
mov ax,01000h ; Nouv. fréq. = 18.2Hz*16 
out &0h,al 
mov al,ah 
jmp  $+2 
jmp  $+2 
out 40h,al 


En examinant ces lignes, vous pourrez remarquer que, 
malgré ce que j'ai dit dans mes explications, j'initialise le 
8253, dans le mode normalement utilisé pour le HP100 : 
mode 2, abec valeur de comptage de 1000h. En fait, 
même si cette initialisation provoque le bug sur le HP95, 
cela n'est pas grave, car le délai exact que mettra la 
première image à s'afficher importe peu... 


Ensuite, il ne reste plus qu'à placer au tout début de notre 
gestionnaire d'interruption les lignes permettant de 
réinitialiser le 8253 après chaque appel (ne pas oublier 
de sauvegarder le registre AX juste avant) : 


mov al,0h 


out &3h,al 

jmp  $+2 

jmp  $+2 

mov ax,cs:[PICval] 
out 40h,al 


imp $+2 
imp $+2 
mov al,ah 
out &0h,al 


Cette programmation peut paraitre un peu “hybride, 
puisque chaque machine utilise dans les deux routines 
d'initialisation et de traitement, du code destiné à l'autre 
(code HP100 pour l'initialisation, et code HP95 pour le 
traitement), mais elle a le mérite de fonctionner, sans 
trop compliquer le programme, donc sans ralentir 
l'exécution. 


Pour finir (et pour remercier ceux qui on bien voulu me 
lire jusqu'à la fin !), je voudrais faire un aveu. Si vous 
regardez attentivement le programme, vous vous 
appercevrez que j'ai omis de parler d'une autre 
fonctionnalité intéressante du programme : Il est capable 
d'afficher les fichiers PCX ! En fait si je laisse cette 
partie "non documentée", cela est dû au fait qu'elle est 
très incomplète, puisqu'elle ne permet d'afficher que des 
images 240x128, issues de programmes générant des 
fichiers utilisant la variante la plus simple du format 
PCX. Par exemple, il n'est pas possible d'afficher le 
fichier TOPCARD.PCX du HP95, qui a été probablement 
créé à l'aide du Paintbrush inclus dans Windows. Pour le 
rendre compatible avec PLAYA95 (tout en restant 
affichable par le System Manager), vous pouvez le 
convertir à l'aide de Graphic Workshop. Il aurait bien sûr 
été possible de tenir compte de ce problème dans le 
programme, mais étant donné que c'est la même routine 
qui affiche les images fixes ou animées, cela aurait été au 
détriment de la rapidité d'affichage des animations. 


Jacques Belin (123) 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux écrits 
en assembleur, nécessitent souvent un logiciel que ne 
possèdent pas tous nos lecteurs. Le Coin des Codes 
permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différent suivant le programme 
d'entrée et la machine de destination. Chaque listing est 
prévu pour être entré sur sa machine de destination. Par 
exemple, ne tentez pas d'entrer un programme HP48 
dans un fichier MS-DOS à l'aide du programme MAKEDOS. 
Vous obtiendriez un fichier intransférable dans la HP48. 


Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en fin de 
chaque ligne permet de faciliter la recherche d'erreurs, 
par rapport à une même recherche dans une chaîne de 
plusieurs centaines d'octets. 


Par mesure de sécurité sauvegardez vos programmes et 
fichiers, éventuellement verrouillez vos cartes. 


Tapez le programme correspondant à votre machine: 

- ASSCOD48 pour HP-48 ou AsscoD28 pour HP-28S 
(attention aux parties distinctes HP-48 ou HP-28S) 

cela avec la plus grande attention car un mauvais 
fonctionnement peut entraîner un désordre fatal pour les 
objets contenus dans votre machine. La commande SPEED 
(JPC-85 page 12) peut être incluse au début de AsscoD28. 
NEWLINE (.-) s'obtient sur HP-48 par [flèche bleue] puis 
[.1. 


Pour tout assemblage de chaîne de codes procédez de la 
manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 

2- donnez le nombre d'octets (1/2 octet compris) puis 
validez avec [ENTER]. 

3- tapez chaque ligne de codes après son numéro à 3 
chiffres et sans les espaces puis validez. 

4- tapez la somme de contrôle sm, validez. S'il y a erreur 
la ligne de codes sera demandée à nouveau. Pour HP-28 
l'appui sur (EDIT) fera apparaître la ligne des codes qui 
pourra être corrigée, ensuite relancez avec CONT. 

5- lorsque l'objet apparaîtra sur la pile stockez le dans la 
variable donnée en tête. 

Nota : des versions AsSsCODxx plus performantes (System 
Rpl et Assembleur) existent dans JPC numéro 95. 


ASSCOD48 1114.5 octets ASSCOD28 1032.5 octets 
cksum # 621Eh cksum # 55CEh 


@ Nestes #S###266983% HP.48 et HP-28S *rsssenesssesssessess 


« RCLF « CLLCD 3 DISP 1 DISP "" 
DO DUP 4 DISP 
DO UNTIL KEY END 
@ RORASENENÉÉÉSS HP-48 ELLE LL LEE 2: 1: @@ Hesse HP-28S téssss 
IF DUP 51 == THEN DROP 1 @@ 1F DUP "ENTER" == 
ELSE IF DUP 55 == THEN DROP  (@(@ THEN DROP 1 
1 OVER SIZE 1 SUB @@ ELSE 
ELSE @@ IF DUP "BACK" == 
CASE DUP 17 < THEN 54 + END @(@ THEN DROP 1 OVER 
DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 
DUP 76 < THEN 20 - END @@ ELSE 
DUP 86 < THEN 33 - END @@ 
DROP 48 END CHR @@ 
@ MÉRSHENENTENÉNÉSÉSÉÉSS HP-48 et HP-28S SRE ÉSERSÉSÉSÉESS 
+ DUP SIZE 1 + 5 MOD NOT 1 FC? AND IF THEN " 4 + 
END END O END UNTIL END » 
HEX 64 STWS ‘nombre d'octets 7?" 11 
@ LLLLLLLLLLLEL LE) HP-48 RRNSRENERENTÉE @@ HAVE HP-28S versets 
INPUT @@ 1 SF 3 PICK EVAL 


@ RÉREREELEÉELELSÉESEÉSES HP_48 et HP-28S RÉRESRÉSESSRESLÉLÉLES 


1 CF STR> 2 * 16 DUP2 / IP 3 ROLLD MOD 


DUP2 O > + SWAP 1 + # Oh "1 1 5 ROLL 

FOR i 

DO “ligne “ i 1 - R>B # 1000h + æSTR 4 6 SUB + DUP 
” a NEWLINE 
COS TPE MES SSSR Se "7 PICK i < 


IF THEN 6 PICK DUP 4 / IP + 1 SWAP OVER - SUB END 
1 FS2C IF THEN DROP2 SWAP 
@ RÉRHSNENSÉSSÉE HP-48 RRNMENERSREÉES @@ HÉRHESE HP-28S VRLÉES 
OVER ‘ a corriger" + @@ 
€ -1 } ROT + INPUT @@ CLMF HALT 
@ RÉ ÉRÉ ER ERERENENERERÉÉ HP-48 et HP-28S HÉNRSSRSENÉSEÉEHÉTÉES 
ELSE 8 PICK EVAL END DUP 
WHILE DUP # #! POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 25 SUB + 
END DROP O0 OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + NEXT 
6 PICK + DUP # FFFh AND 
u @ NEWLINE 
somme de controle ?" 6 ROLL SWAP + !===11 
11 PICK EVAL "#1 SWAP + STR> == 
IF THEN 1 ELSE DROP2 1000 1 BEEP 1 SF O END 
UNTIL END ROT 5 ROLL DROP2 3 ROLLD + 
NEXT 5 ROLLD 4 DROPN 
@ ess HP-48 Féste @@ ÉRSÉSÉSHÉENSÉESS HP-28S ÉHENSISESÉSÉNTE 
"GROB 8 " OVER (@@ "" SWAP 1 OVER SIZE 
SIZE 2/ "+ (@@ FOR j DUP j DUP 15 + SUB "#1" 
+ SWAP + STR> (@@ OVER SIZE 1 
# 4017h SYSEVAL @@ FOR i OVER i DUP SUB + -1 STEP 
# 62B9Ch @@ SWAP DROP STR{m!£l ROT SWAP 
SYSEVAL NEWOB (@@ # 3B82h SYSEVAL SWAP 16 
SWAP STOF » @@ STEP DROP # 20238h SYSEVAL 


7 
Lea 


@@ # 4F3Dh SYSEVAL SWAP STOF CLMF » 
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BINO CHP48) 
# 87E6h 37.5 octets 

0123 4567 89AB CDEF sm 
000: D9D2 02BA 81D2 B368  E30 
001: 8130 AEC8 1FED 303C  D98 
002: 3701 1436 FBD8 126E  C1B 
003: A2D4 436A EC81 FED3  C53 
004: 0954 50B2 130 982 
STRIP (HP48) 
# 024Bh 312 octets 

0123 4567 89AB CDEF sm 
000: D9D2 079E 60D9 D20A  EA9 
001: D2A1 B3A1 6F6A 367F  DC7 
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002: 
003: 


005: 
006: 
007: 
008: 
009: 
00A: 
00B: 
00C: 
00D: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 


8169 E550 D123 


1608 


: 6936 


8813 
4E30 
3300 
2079 
6D90 
DA91 
2130 
B26B 
22E2 
6D87 
5293 
4916 
B30B 
2233 
57A2 
8213 


236F 
32F2 
03F2 
B213 
9020 
E60E 
2020 
6D92 
4423 
2130 
B30B 
32E2 
6DE0 
5293 
4916 
9160 
26B4 


A450 
E36D 
1662 
OF74 
D902 
25A1 
2304 
20E4 
0300 
5293 
4916 
B30B 
32E2 
6976 
79E6 
9020 
9167 


67F8 
1693 
9020 
726E 
3652 
0D90 
3391 
4126 
1168 
40c9 
63CE 
5293 
4916 
B30B 
32E2 
05DF 
F281 
BF60 


078F 60B2 1301 


BA3 
8BA 
éF0 
413 


FFB 
CDE 
8c7 
écF 
2AD 
06F 
D1D 
A76 
881 
SA1 
49c 
225 
028 
c80 


015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
01D: 
O1E: 
01F: 


021: 
022: 
023: 
024: 
025: 
026: 


2270 
270E 
6082 
2AB8 
c943 
9E60 
E60E 
2079 
0112 
5035 
6cB9 


: 5259 


0433 
F9F6 
2040 
F607 
2047 
0F30 


EOE3 0072 7094 


0E30 
1307 
1608 
2AB8 
79E6 
F532 
E607 
2639 
4525 
1684 
405B 
7054 
0D48 
D9D2 
E126 
A203 
40E8 


5927 
9E60 
2367 
1609 
0B21 
AB81 
9470 
9168 
9405 
E205 
2130 
4508 
8128 
0F10 
c2A1 
BA50 
E60B 


078F 
E163 
9E60 
D207 
3079 
6D90 
B213 
4E20 
7E12 
0354 
9427 
2130 
F811 
70E8 
6119 
B213 
2130 


8B6 
6EE 
40F 
209 
011 
CE8 
céc 
8F7 
584 
1F3 
E3C 
A37 
5BD 
380 
141 
E2D 
818 
7DA 
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